﻿Public Class frmPedidosAdmin

    Private Sub frmPedidosAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To miGestionPedidos.Pedidos.Count - 1
            cboPedidos.Items.Add(miGestionPedidos.Pedidos(i).NombreCliente & " | " & miGestionPedidos.Pedidos(i).Fecha)


        Next
    End Sub

    Private Sub cboPedidos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboPedidos.SelectedIndexChanged
        txtTotal.Text = ""
        lstProductos.Items.Clear()
        For i As Integer = 0 To miGestionPedidos.Pedidos(cboPedidos.SelectedIndex).ListaProductos.Count - 1
            lstProductos.Items.Add(miGestionPedidos.Pedidos(cboPedidos.SelectedIndex).ListaProductos(i).Nombre)
        Next
        txtTotal.Text = miGestionPedidos.Pedidos(cboPedidos.SelectedIndex).PrecioTotal

    End Sub

    Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
        miGestionPedidos.Eliminar(miGestionPedidos.Pedidos(cboPedidos.SelectedIndex))
        cboPedidos.Items.Clear()
        lstProductos.Items.Clear()
        For i As Integer = 0 To miGestionPedidos.Pedidos.Count - 1
            cboPedidos.Items.Add(miGestionPedidos.Pedidos(i).NombreCliente & " | " & miGestionPedidos.Pedidos(i).Fecha)

        Next
        txtTotal.Text = ""

    End Sub
End Class